/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / oodles-of-utils.sea / oodles-of-utils / mixin-madness / simple-view-mixins / rsrc-svm.lisp

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 72 73 72 63 2d 73 | 76 6d 2e 6c 69 73 70 00 |..rsrc-s|vm.lisp.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 0b 7d 00 | 00 01 ba a5 ae 18 4c a5 |......}.|......L.|
|00000060| ae 18 4c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..L.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 cb e4 00 00 |........|........|
|00000080| 28 69 6e 2d 70 61 63 6b | 61 67 65 20 3a 6f 6f 75 |(in-pack|age :oou|
|00000090| 29 0d 28 6f 6f 75 2d 70 | 72 6f 76 69 64 65 20 3a |).(oou-p|rovide :|
|000000a0| 72 73 72 63 2d 73 76 6d | 29 0d 3b 3b 3b 3b 3b 3b |rsrc-svm|).;;;;;;|
|000000b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000f0| 0d 3b 3b 20 72 73 72 63 | 2d 73 76 6d 2e 4c 69 73 |.;; rsrc|-svm.Lis|
|00000100| 70 0d 3b 3b 0d 3b 3b 20 | 43 6f 70 79 72 69 67 68 |p.;;.;; |Copyrigh|
|00000110| 74 20 a9 20 31 39 39 32 | 20 4e 6f 72 74 68 77 65 |t . 1992| Northwe|
|00000120| 73 74 65 72 6e 20 55 6e | 69 76 65 72 73 69 74 79 |stern Un|iversity|
|00000130| 20 49 6e 73 74 69 74 75 | 74 65 20 66 6f 72 20 74 | Institu|te for t|
|00000140| 68 65 20 4c 65 61 72 6e | 69 6e 67 20 53 63 69 65 |he Learn|ing Scie|
|00000150| 6e 63 65 73 0d 3b 3b 20 | 41 6c 6c 20 52 69 67 68 |nces.;; |All Righ|
|00000160| 74 73 20 52 65 73 65 72 | 76 65 64 0d 3b 3b 0d 3b |ts Reser|ved.;;.;|
|00000170| 3b 20 61 75 74 68 6f 72 | 3a 20 4d 69 63 68 61 65 |; author|: Michae|
|00000180| 6c 20 53 2e 20 45 6e 67 | 62 65 72 0d 3b 3b 0d 3b |l S. Eng|ber.;;.;|
|00000190| 3b 20 44 69 61 6c 6f 67 | 20 69 74 65 6d 20 6d 69 |; Dialog| item mi|
|000001a0| 78 69 6e 20 66 6f 72 20 | 68 61 6e 64 6c 69 6e 67 |xin for |handling|
|000001b0| 20 72 65 73 6f 75 72 63 | 65 73 2e 0d 3b 3b 3b 3b | resourc|es..;;;;|
|000001c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000200| 3b 3b 0d 0d 28 6f 6f 75 | 2d 64 65 70 65 6e 64 65 |;;..(oou|-depende|
|00000210| 6e 63 69 65 73 0d 20 3a | 52 65 73 6f 75 72 63 65 |ncies. :|Resource|
|00000220| 73 2d 75 29 0d 0d 28 65 | 78 70 6f 72 74 20 27 28 |s-u)..(e|xport '(|
|00000230| 72 73 72 63 2d 73 76 6d | 20 73 65 74 2d 76 69 65 |rsrc-svm| set-vie|
|00000240| 77 2d 72 65 73 6f 75 72 | 63 65 20 72 73 72 63 2d |w-resour|ce rsrc-|
|00000250| 67 65 74 2d 66 6e 20 72 | 73 72 63 2d 64 69 73 70 |get-fn r|src-disp|
|00000260| 6f 73 65 2d 66 6e 29 29 | 0d 0d 3b 3b 3b 3b 3b 3b |ose-fn))|..;;;;;;|
|00000270| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000280| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000290| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002b0| 0d 0d 28 64 65 66 63 6c | 61 73 73 20 72 73 72 63 |..(defcl|ass rsrc|
|000002c0| 2d 73 76 6d 20 28 29 0d | 20 20 28 28 72 73 72 63 |-svm ().|  ((rsrc|
|000002d0| 2d 74 79 70 65 20 20 20 | 20 20 20 20 20 20 20 20 |-type   |        |
|000002e0| 20 20 20 20 20 3a 69 6e | 69 74 61 72 67 20 3a 72 |     :in|itarg :r|
|000002f0| 73 72 63 2d 74 79 70 65 | 29 0d 20 20 20 28 72 73 |src-type|).   (rs|
|00000300| 72 63 2d 69 64 20 20 20 | 20 20 20 20 20 20 20 20 |rc-id   |        |
|00000310| 20 20 20 20 20 20 20 3a | 69 6e 69 74 61 72 67 20 |       :|initarg |
|00000320| 3a 72 73 72 63 2d 69 64 | 29 0d 20 20 20 28 72 73 |:rsrc-id|).   (rs|
|00000330| 72 63 2d 6e 61 6d 65 20 | 20 20 20 20 20 20 20 20 |rc-name |        |
|00000340| 20 20 20 20 20 20 20 3a | 69 6e 69 74 61 72 67 20 |       :|initarg |
|00000350| 3a 72 73 72 63 2d 6e 61 | 6d 65 29 0d 20 20 20 28 |:rsrc-na|me).   (|
|00000360| 72 73 72 63 2d 68 61 6e | 64 6c 65 20 20 20 20 20 |rsrc-han|dle     |
|00000370| 20 20 20 20 20 20 20 20 | 20 3a 69 6e 69 74 61 72 |        | :initar|
|00000380| 67 20 3a 72 73 72 63 2d | 68 61 6e 64 6c 65 29 0d |g :rsrc-|handle).|
|00000390| 20 20 20 28 64 65 74 61 | 63 68 2d 70 20 20 20 20 |   (deta|ch-p    |
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6e |        |     :in|
|000003b0| 69 74 61 72 67 20 3a 64 | 65 74 61 63 68 2d 70 29 |itarg :d|etach-p)|
|000003c0| 0d 20 20 20 28 64 69 73 | 70 6f 73 65 2d 72 73 72 |.   (dis|pose-rsr|
|000003d0| 63 2d 6f 6e 2d 72 65 6d | 6f 76 65 2d 70 20 3a 69 |c-on-rem|ove-p :i|
|000003e0| 6e 69 74 61 72 67 20 3a | 64 69 73 70 6f 73 65 2d |nitarg :|dispose-|
|000003f0| 72 73 72 63 2d 6f 6e 2d | 72 65 6d 6f 76 65 2d 70 |rsrc-on-|remove-p|
|00000400| 29 29 0d 20 20 28 3a 64 | 65 66 61 75 6c 74 2d 69 |)).  (:d|efault-i|
|00000410| 6e 69 74 61 72 67 73 20 | 20 20 20 3a 64 69 73 70 |nitargs |   :disp|
|00000420| 6f 73 65 2d 72 73 72 63 | 2d 6f 6e 2d 72 65 6d 6f |ose-rsrc|-on-remo|
|00000430| 76 65 2d 70 20 74 20 3a | 64 65 74 61 63 68 2d 70 |ve-p t :|detach-p|
|00000440| 20 6e 69 6c 29 29 0d 0d | 28 64 65 66 6d 65 74 68 | nil))..|(defmeth|
|00000450| 6f 64 20 69 6e 73 74 61 | 6c 6c 2d 76 69 65 77 2d |od insta|ll-view-|
|00000460| 69 6e 2d 77 69 6e 64 6f | 77 20 3a 61 66 74 65 72 |in-windo|w :after|
|00000470| 20 28 28 73 76 20 72 73 | 72 63 2d 73 76 6d 29 20 | ((sv rs|rc-svm) |
|00000480| 77 69 6e 64 6f 77 29 0d | 20 20 28 64 65 63 6c 61 |window).|  (decla|
|00000490| 72 65 20 28 69 67 6e 6f | 72 65 20 77 69 6e 64 6f |re (igno|re windo|
|000004a0| 77 29 29 0d 20 20 28 72 | 73 72 63 2d 68 61 6e 64 |w)).  (r|src-hand|
|000004b0| 6c 65 2d 69 6e 73 74 61 | 6c 6c 20 73 76 29 29 0d |le-insta|ll sv)).|
|000004c0| 0d 28 64 65 66 6d 65 74 | 68 6f 64 20 72 65 6d 6f |.(defmet|hod remo|
|000004d0| 76 65 2d 76 69 65 77 2d | 66 72 6f 6d 2d 77 69 6e |ve-view-|from-win|
|000004e0| 64 6f 77 20 3a 61 66 74 | 65 72 20 28 28 73 76 20 |dow :aft|er ((sv |
|000004f0| 72 73 72 63 2d 73 76 6d | 29 29 0d 20 20 28 72 73 |rsrc-svm|)).  (rs|
|00000500| 72 63 2d 68 61 6e 64 6c | 65 2d 72 65 6d 6f 76 65 |rc-handl|e-remove|
|00000510| 20 73 76 29 29 0d 0d 28 | 64 65 66 6d 65 74 68 6f | sv))..(|defmetho|
|00000520| 64 20 72 73 72 63 2d 68 | 61 6e 64 6c 65 2d 69 6e |d rsrc-h|andle-in|
|00000530| 73 74 61 6c 6c 20 28 28 | 73 76 20 72 73 72 63 2d |stall ((|sv rsrc-|
|00000540| 73 76 6d 29 29 0d 20 20 | 28 77 69 74 68 2d 73 6c |svm)).  |(with-sl|
|00000550| 6f 74 73 20 28 72 73 72 | 63 2d 74 79 70 65 20 72 |ots (rsr|c-type r|
|00000560| 73 72 63 2d 69 64 20 72 | 73 72 63 2d 6e 61 6d 65 |src-id r|src-name|
|00000570| 20 72 73 72 63 2d 68 61 | 6e 64 6c 65 20 64 65 74 | rsrc-ha|ndle det|
|00000580| 61 63 68 2d 70 29 20 73 | 76 0d 20 20 20 20 28 63 |ach-p) s|v.    (c|
|00000590| 6f 6e 64 20 28 28 73 6c | 6f 74 2d 62 6f 75 6e 64 |ond ((sl|ot-bound|
|000005a0| 70 20 73 76 20 27 72 73 | 72 63 2d 68 61 6e 64 6c |p sv 'rs|rc-handl|
|000005b0| 65 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 28 28 |e)).    |      ((|
|000005c0| 73 6c 6f 74 2d 62 6f 75 | 6e 64 70 20 73 76 20 27 |slot-bou|ndp sv '|
|000005d0| 72 73 72 63 2d 69 64 29 | 0d 20 20 20 20 20 20 20 |rsrc-id)|.       |
|000005e0| 20 20 20 20 28 73 65 74 | 66 20 72 73 72 63 2d 68 |    (set|f rsrc-h|
|000005f0| 61 6e 64 6c 65 20 28 72 | 73 72 63 2d 67 65 74 2d |andle (r|src-get-|
|00000600| 66 6e 20 73 76 20 72 73 | 72 63 2d 74 79 70 65 20 |fn sv rs|rc-type |
|00000610| 72 73 72 63 2d 69 64 29 | 29 29 0d 20 20 20 20 20 |rsrc-id)|)).     |
|00000620| 20 20 20 20 20 28 28 73 | 6c 6f 74 2d 62 6f 75 6e |     ((s|lot-boun|
|00000630| 64 70 20 73 76 20 27 72 | 73 72 63 2d 6e 61 6d 65 |dp sv 'r|src-name|
|00000640| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 28 73 65 |).      |     (se|
|00000650| 74 66 20 72 73 72 63 2d | 68 61 6e 64 6c 65 20 28 |tf rsrc-|handle (|
|00000660| 72 73 72 63 2d 67 65 74 | 2d 66 6e 20 73 76 20 72 |rsrc-get|-fn sv r|
|00000670| 73 72 63 2d 74 79 70 65 | 20 72 73 72 63 2d 6e 61 |src-type| rsrc-na|
|00000680| 6d 65 29 29 29 29 0d 20 | 20 20 20 28 77 68 65 6e |me)))). |   (when|
|00000690| 20 28 61 6e 64 20 64 65 | 74 61 63 68 2d 70 20 28 | (and de|tach-p (|
|000006a0| 73 6c 6f 74 2d 62 6f 75 | 6e 64 70 20 73 76 20 27 |slot-bou|ndp sv '|
|000006b0| 72 73 72 63 2d 68 61 6e | 64 6c 65 29 20 28 72 65 |rsrc-han|dle) (re|
|000006c0| 73 6f 75 72 63 65 2d 68 | 61 6e 64 6c 65 70 20 72 |source-h|andlep r|
|000006d0| 73 72 63 2d 68 61 6e 64 | 6c 65 29 29 0d 20 20 20 |src-hand|le)).   |
|000006e0| 20 20 20 28 23 5f 44 65 | 74 61 63 68 52 65 73 6f |   (#_De|tachReso|
|000006f0| 75 72 63 65 20 72 73 72 | 63 2d 68 61 6e 64 6c 65 |urce rsr|c-handle|
|00000700| 29 29 29 29 0d 0d 28 64 | 65 66 6d 65 74 68 6f 64 |))))..(d|efmethod|
|00000710| 20 72 73 72 63 2d 68 61 | 6e 64 6c 65 2d 72 65 6d | rsrc-ha|ndle-rem|
|00000720| 6f 76 65 20 28 28 73 76 | 20 72 73 72 63 2d 73 76 |ove ((sv| rsrc-sv|
|00000730| 6d 29 29 0d 20 20 28 77 | 68 65 6e 20 28 73 6c 6f |m)).  (w|hen (slo|
|00000740| 74 2d 62 6f 75 6e 64 70 | 20 73 76 20 27 72 73 72 |t-boundp| sv 'rsr|
|00000750| 63 2d 68 61 6e 64 6c 65 | 29 0d 20 20 20 20 28 77 |c-handle|).    (w|
|00000760| 69 74 68 2d 6d 61 63 70 | 74 72 73 20 28 28 72 73 |ith-macp|trs ((rs|
|00000770| 72 63 2d 68 61 6e 64 6c | 65 20 28 73 6c 6f 74 2d |rc-handl|e (slot-|
|00000780| 76 61 6c 75 65 20 73 76 | 20 27 72 73 72 63 2d 68 |value sv| 'rsrc-h|
|00000790| 61 6e 64 6c 65 29 29 29 | 0d 20 20 20 20 20 20 28 |andle)))|.      (|
|000007a0| 73 6c 6f 74 2d 6d 61 6b | 75 6e 62 6f 75 6e 64 20 |slot-mak|unbound |
|000007b0| 73 76 20 27 72 73 72 63 | 2d 68 61 6e 64 6c 65 29 |sv 'rsrc|-handle)|
|000007c0| 0d 20 20 20 20 20 20 28 | 77 68 65 6e 20 28 73 6c |.      (|when (sl|
|000007d0| 6f 74 2d 76 61 6c 75 65 | 20 73 76 20 27 64 69 73 |ot-value| sv 'dis|
|000007e0| 70 6f 73 65 2d 72 73 72 | 63 2d 6f 6e 2d 72 65 6d |pose-rsr|c-on-rem|
|000007f0| 6f 76 65 2d 70 29 0d 20 | 20 20 20 20 20 20 20 28 |ove-p). |       (|
|00000800| 72 73 72 63 2d 64 69 73 | 70 6f 73 65 2d 66 6e 20 |rsrc-dis|pose-fn |
|00000810| 73 76 20 72 73 72 63 2d | 68 61 6e 64 6c 65 20 28 |sv rsrc-|handle (|
|00000820| 72 65 73 6f 75 72 63 65 | 2d 68 61 6e 64 6c 65 70 |resource|-handlep|
|00000830| 20 72 73 72 63 2d 68 61 | 6e 64 6c 65 29 29 29 29 | rsrc-ha|ndle))))|
|00000840| 29 29 0d 0d 28 64 65 66 | 6d 65 74 68 6f 64 20 73 |))..(def|method s|
|00000850| 65 74 2d 76 69 65 77 2d | 72 65 73 6f 75 72 63 65 |et-view-|resource|
|00000860| 20 28 28 73 76 20 72 73 | 72 63 2d 73 76 6d 29 20 | ((sv rs|rc-svm) |
|00000870| 26 6b 65 79 20 72 73 72 | 63 2d 74 79 70 65 20 72 |&key rsr|c-type r|
|00000880| 73 72 63 2d 69 64 20 72 | 73 72 63 2d 6e 61 6d 65 |src-id r|src-name|
|00000890| 20 72 73 72 63 2d 68 61 | 6e 64 6c 65 29 0d 20 20 | rsrc-ha|ndle).  |
|000008a0| 28 77 68 65 6e 20 72 73 | 72 63 2d 74 79 70 65 20 |(when rs|rc-type |
|000008b0| 28 73 65 74 66 20 28 73 | 6c 6f 74 2d 76 61 6c 75 |(setf (s|lot-valu|
|000008c0| 65 20 73 76 20 27 72 73 | 72 63 2d 74 79 70 65 29 |e sv 'rs|rc-type)|
|000008d0| 20 72 73 72 63 2d 74 79 | 70 65 29 29 0d 20 20 28 | rsrc-ty|pe)).  (|
|000008e0| 73 6c 6f 74 2d 6d 61 6b | 75 6e 62 6f 75 6e 64 20 |slot-mak|unbound |
|000008f0| 73 76 20 27 72 73 72 63 | 2d 69 64 29 0d 20 20 28 |sv 'rsrc|-id).  (|
|00000900| 73 6c 6f 74 2d 6d 61 6b | 75 6e 62 6f 75 6e 64 20 |slot-mak|unbound |
|00000910| 73 76 20 27 72 73 72 63 | 2d 6e 61 6d 65 29 0d 20 |sv 'rsrc|-name). |
|00000920| 20 28 77 69 74 68 6f 75 | 74 2d 69 6e 74 65 72 72 | (withou|t-interr|
|00000930| 75 70 74 73 0d 20 20 20 | 28 72 73 72 63 2d 68 61 |upts.   |(rsrc-ha|
|00000940| 6e 64 6c 65 2d 72 65 6d | 6f 76 65 20 73 76 29 0d |ndle-rem|ove sv).|
|00000950| 20 20 20 28 63 6f 6e 64 | 20 28 72 73 72 63 2d 68 |   (cond| (rsrc-h|
|00000960| 61 6e 64 6c 65 20 28 73 | 65 74 66 20 28 73 6c 6f |andle (s|etf (slo|
|00000970| 74 2d 76 61 6c 75 65 20 | 73 76 20 27 72 73 72 63 |t-value |sv 'rsrc|
|00000980| 2d 68 61 6e 64 6c 65 29 | 20 72 73 72 63 2d 68 61 |-handle)| rsrc-ha|
|00000990| 6e 64 6c 65 29 29 0d 20 | 20 20 20 20 20 20 20 20 |ndle)). |        |
|000009a0| 28 72 73 72 63 2d 69 64 | 20 20 20 20 20 28 73 65 |(rsrc-id|     (se|
|000009b0| 74 66 20 28 73 6c 6f 74 | 2d 76 61 6c 75 65 20 73 |tf (slot|-value s|
|000009c0| 76 20 27 72 73 72 63 2d | 69 64 29 20 20 20 20 20 |v 'rsrc-|id)     |
|000009d0| 72 73 72 63 2d 69 64 29 | 29 0d 20 20 20 20 20 20 |rsrc-id)|).      |
|000009e0| 20 20 20 28 72 73 72 63 | 2d 6e 61 6d 65 20 20 20 |   (rsrc|-name   |
|000009f0| 28 73 65 74 66 20 28 73 | 6c 6f 74 2d 76 61 6c 75 |(setf (s|lot-valu|
|00000a00| 65 20 73 76 20 27 72 73 | 72 63 2d 6e 61 6d 65 29 |e sv 'rs|rc-name)|
|00000a10| 20 20 20 72 73 72 63 2d | 6e 61 6d 65 29 29 29 0d |   rsrc-|name))).|
|00000a20| 20 20 20 28 77 68 65 6e | 20 28 77 70 74 72 20 73 |   (when| (wptr s|
|00000a30| 76 29 20 28 72 73 72 63 | 2d 68 61 6e 64 6c 65 2d |v) (rsrc|-handle-|
|00000a40| 69 6e 73 74 61 6c 6c 20 | 73 76 29 29 29 29 0d 0d |install |sv))))..|
|00000a50| 0d 28 64 65 66 6d 65 74 | 68 6f 64 20 72 73 72 63 |.(defmet|hod rsrc|
|00000a60| 2d 67 65 74 2d 66 6e 20 | 28 28 73 76 20 72 73 72 |-get-fn |((sv rsr|
|00000a70| 63 2d 73 76 6d 29 20 72 | 73 72 63 2d 74 79 70 65 |c-svm) r|src-type|
|00000a80| 20 72 73 72 63 2d 69 64 | 2d 6f 72 2d 6e 61 6d 65 | rsrc-id|-or-name|
|00000a90| 29 0d 20 20 28 67 65 74 | 2d 72 65 73 6f 75 72 63 |).  (get|-resourc|
|00000aa0| 65 20 72 73 72 63 2d 74 | 79 70 65 20 72 73 72 63 |e rsrc-t|ype rsrc|
|00000ab0| 2d 69 64 2d 6f 72 2d 6e | 61 6d 65 29 29 0d 0d 28 |-id-or-n|ame))..(|
|00000ac0| 64 65 66 6d 65 74 68 6f | 64 20 72 73 72 63 2d 64 |defmetho|d rsrc-d|
|00000ad0| 69 73 70 6f 73 65 2d 66 | 6e 20 28 28 73 76 20 72 |ispose-f|n ((sv r|
|00000ae0| 73 72 63 2d 73 76 6d 29 | 20 72 73 72 63 2d 68 61 |src-svm)| rsrc-ha|
|00000af0| 6e 64 6c 65 20 72 73 72 | 63 2d 68 61 6e 64 6c 65 |ndle rsr|c-handle|
|00000b00| 70 29 0d 20 20 28 69 66 | 20 72 73 72 63 2d 68 61 |p).  (if| rsrc-ha|
|00000b10| 6e 64 6c 65 70 0d 20 20 | 20 20 28 23 5f 52 65 6c |ndlep.  |  (#_Rel|
|00000b20| 65 61 73 65 52 65 73 6f | 75 72 63 65 20 72 73 72 |easeReso|urce rsr|
|00000b30| 63 2d 68 61 6e 64 6c 65 | 29 0d 20 20 20 20 28 23 |c-handle|).    (#|
|00000b40| 5f 44 69 73 70 6f 73 65 | 48 61 6e 64 6c 65 20 72 |_Dispose|Handle r|
|00000b50| 73 72 63 2d 68 61 6e 64 | 6c 65 29 29 29 0d 0d 3b |src-hand|le)))..;|
|00000b60| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000b70| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000b80| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000b90| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000ba0| 3b 3b 3b 3b 3b 0d 23 7c | 0d 20 20 20 65 78 61 6d |;;;;;.#||.   exam|
|00000bb0| 70 6c 65 73 20 63 61 6e | 20 62 65 20 66 6f 75 6e |ples can| be foun|
|00000bc0| 64 20 69 6e 20 67 72 61 | 70 68 69 63 2d 72 73 72 |d in gra|phic-rsr|
|00000bd0| 63 2d 73 76 6d 2c 20 50 | 49 43 54 2d 73 76 6d 2c |c-svm, P|ICT-svm,|
|00000be0| 20 50 49 43 54 2d 64 69 | 2c 20 49 43 4f 4e 2d 64 | PICT-di|, ICON-d|
|00000bf0| 69 2c 20 63 69 63 6e 2d | 64 69 0d 7c 23 00 00 00 |i, cicn-|di.|#...|
|00000c00| 00 00 01 00 00 00 01 68 | 00 00 00 68 00 00 00 52 |.......h|...h...R|
|00000c10| 7f 01 e8 08 3e 01 e8 08 | 14 03 e8 08 7f ff e8 08 |....>...|........|
|00000c20| 7f ff c8 08 7f ff 88 08 | 14 00 08 08 1c 00 08 0a |........|........|
|00000c30| 0d 72 73 72 63 2d 73 76 | 6d 2e 6c 69 73 70 02 00 |.rsrc-sv|m.lisp..|
|00000c40| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 68 00 80 |..TEXTCC|L2...h..|
|00000c50| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 68 00 80 |..TEXTCC|L2...h..|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 a4 b5 f5 e2 00 00 | 0b 7d 00 00 01 ba f8 0f |........|.}......|
|00000c80| ff ff f8 0f ff ff f8 0f | ff ff f8 0f ff ff f8 0f |........|........|
|00000c90| ff ff f8 0f ff ff f8 0f | ff ff f8 0f ff ff f8 0f |........|........|
|00000ca0| ff ff f8 0f ff ff f8 0f | ff ff f8 0f ff ff f8 0f |........|........|
|00000cb0| ff ff f8 0f ff ff f8 0f | ff ff f8 0f ff ff f8 0f |........|........|
|00000cc0| ff ff f8 00 00 01 00 15 | 55 54 00 00 00 00 00 10 |........|UT......|
|00000cd0| 00 05 00 00 00 00 00 10 | 00 04 40 00 00 00 00 10 |........|..@.....|
|00000ce0| 00 05 50 00 00 00 00 10 | 00 00 10 00 00 00 00 10 |..P.....|........|
|00000cf0| 00 00 10 00 00 00 00 10 | 00 00 10 00 00 00 00 10 |........|........|
|00000d00| 00 00 00 0a 00 01 00 16 | 0a 00 01 00 00 00 00 00 |........|........|
|00000d10| 00 48 00 0a 43 6f 75 72 | 69 65 72 00 00 00 00 00 |.H..Cour|ier.....|
|00000d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d30| 00 00 00 00 00 06 00 08 | 00 61 00 9f 03 07 02 df |........|.a......|
|00000d40| 00 61 00 9f 03 07 02 df | 00 00 00 00 00 00 00 98 |.a......|........|
|00000d50| 00 00 00 98 00 00 00 00 | 01 00 00 00 00 0a 00 00 |........|........|
|00000d60| 07 43 6f 75 72 69 65 72 | 00 00 01 00 00 00 01 68 |.Courier|.......h|
|00000d70| 00 00 00 68 00 00 00 52 | 00 f0 c5 d4 0c 7e 00 00 |...h...R|.....~..|
|00000d80| 00 1c 00 52 00 01 46 52 | 45 44 00 01 00 12 4d 50 |...R..FR|ED....MP|
|00000d90| 53 52 00 00 00 2a 00 02 | ff ff 00 00 00 00 00 00 |SR...*..|........|
|00000da0| 00 00 00 03 ff ff 00 00 | 00 5a 00 00 00 00 03 ed |........|.Z......|
|00000db0| ff ff 00 00 00 0e 00 f1 | b6 2c 00 00 00 00 00 00 |........|.,......|
|00000dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+